10 POKE56334,0:POKE1,51
20 FORI=1024TO2023:BA=53248+PEEK(I)*8
30 FORJ=0TO7:POKE8192+Z,PEEK(BA+J):Z=Z+1:NEXTJ,I
40 POKE1,55:POKE56334,1